/*
* Creates Large and Small Payments figures
* Figures 12 & 13 in the paper
*
*/


clear

//
// Figure of Large Value Payments Timing
//
  use PayLargeTime, clear
  
* title("Timing of Large Payments, by Direction")
  twoway (line Send50Smth Date, lpattern(solid) lcolor(black)) (line Recv50Smth Date, lpattern(dash) lcolor(red)), name(LargePayments, replace) legend(label(1 "Payments Sent") label(2 "Payments Received") position(7)) tlabel( #10,format(%tdCCYY)) ytitle("Lagged average payment time (minutes)") xtitle("") tline(17mar2020, lcolor(black)) tline(17sep2019, lcolor(black))

*  graph export LargeTiming.pdf, replace 

//
// Figure of Small Value Payments Timing
//
  use PaySmallTime, clear
  
* title("Timing of Not Large Payments, by Direction")
	twoway (line Send50Smth Date, lpattern(solid) lcolor(black)) (line Recv50Smth Date, lpattern(dash) lcolor(red)), name(NotLargePayments, replace) legend(label(1 "Payments Sent") label(2 "Payments Received") position(7)) tlabel( #10,format(%tdCCYY)) ylabel(-100(50)150) ytitle("Lagged average payment time (minutes)") xtitle("") tline(17mar2020, lcolor(black)) tline(17sep2019, lcolor(black))
*	graph export NotLargeTiming.pdf, replace  
  
